USS FORTRAN [I **x VERSION #8002-08-62 


C USS FORTRAN II TEST DECK 
LIST 
C LOOK HERE COMPILER: THIS IS DADDY SPEAKING. BE A GOOD BOYe 


DIMENSION A%;Ot*e BKEL0O019085 CHLO¢e1LO+e1088 


ODIMENSION 


C WATCH OUT+ THE NEXT CARD IS A CONTINUATION 


1 TARRAY%3¢32 + JARRAY%123 #KARRAY 4133 +9%82 


COMMON DeArlI yt IARRAYeXeVeZ 


EQUIVALENCE% 4%22+BK3038 28 eBCKHLOL + ARS e2SeN3 


EQUIVALENCE Rr JARRAYK 122+ %S+ JARRAYK28 £ eHTeKARRAY HOE te BIARRAY KA 


D%212920103 


LRRAY: 

XAYRZHOS IARRAY®%1325% T#-e0090000000000000082 
090 9 0000 211224195 
222 9 900 3100070007 
232 9 0007 5901020014 2 
232 9 0014 59001010021 Y 
232 0 0021 5901000028 x 
292 9 0028 0700050035 

00 11 # 299 
100 9 9009 3382000000 ek IK OK aK ak ok 
232 0 0035 60009 10042 TARRA 
212 9 0042 2500000049 CONST 

856 FORMAT (15/366e8/4/5F7+6H1234565H12 3U5S5X5X 0 6¥3A28+52P-52P1&52P 

212 9 90049 6000060056 T 
292 9 0055 Oo 00020063 
190 9 0014 0000090000 Me kt oc ke oc ic ak 2k 
292 90 0070 0:00010077 
212 9 0077 3900140091 CONST 
222 9 0091 8700840063 
220 9 0063 0900980000 
190 90 0015 0900000000 BIO IK 
100 9 0016 0900000000 $e KK KK 
190 90 0017 0300000500 OI aK kook ake a ok 
190 9 0018 1900000000 ee 24 ai a a akc ak ake 
190 0 0019 0400300608 2h ste 1 2K ate 2K akc ak 2k 


0000 
0000 
0000 
0000 
0000 
0009 
0000 
0000 
0000 
0000 
0000 
0000 


0035 


0049 


IO CK 
IO HOR IK 
FIO II 
eet. et tt 
AIO kak 
FO IORI 
Trt ere tt 
IC IO goog 
ror rer | 
FI GO IK 
KOI a 3K eae 
TLE ttt 
AOR IOK ok dogo 
AR IK 
FIO He 
Fe of ak 
AI dO Ka 


SIRI IOK HOCK 
(eR AOR KK 
FI IK I 
I I OK 4k 
FR OO OK 


I IK EK 
ICR EK 
BI OI I A 
So I ie 


*1* 
D 
EnPK* 


FIORE a dk i ack 
*I% 

CONST 
*I* 
* 1 * 


IARRA 


100 ¢ 0020 1000300008 
190 9 0021 1900000400 
100 90 0022 0800500700 
100 ¢ 0023 0800600006 
100 0 0024 0000012345 
190 0 0025 0900060000 
190 0 0026 0800500005 
1900 0 0027 0900012345 
100 0 0028 0600500005 
190 0 0029 0400500005 
190 0 00390 0000600006 
190 9 0031 0000000000 
190 90 0032 0700300200 
190 9 0033 0100300000 
1900 90 0034 0205200052 
100 0 0035 0205200152 
190 9 0036 0205200052 
18M3e4eKe 30 12/X) 
190 0 0037 0901800304 
190 0 0038 0000003 
190 9 0039 1900001200 
190 0 00490 0400000000 
1900 0 0041 0100000000 
PUNCH 856 ¢ &4DrIARRAY+ JARRAY%12eR#SeTeleO2eOeOeR AND S 

190 0 0042 9900000000 
690 90 0400 112225472 

120 0 0045 0000980000 
150 0 0044 0004060000 
212 90 0098 0200150105 
215 1 0105 0 00430400 
120 0 0043 0901120000 
220 0 0119 0901260000 
212 0 0133 2300460140 
220 0 0140 700147000= 
232 9 0147 2899990154 
225 1 0154 © 01610401 
202 0 0126 0700010168 
292 0 Olel 0700010175 
190 0 0047 0900800000 
212 0 0175 7000460182 
212 0 0182 3000470196 
222 0 0195 8701890168 
212 0 0168 6900460133 
220 9 0189 0900030000 
212 9 0010 2500460017 
220 90 0017 790024000- 
232 9 0024 2500900031 
225 1 0031 QO 00380402 


ENPK* 


0098 


0098 


EXTRA 


OPERAND 


202 0 0003 0700010045 
202 0 0038 0700010052 
212 0 0052 79000460059 
212 0 0059 5900140073 
222 0 0073 8700660045 
212 0 0045 6900460010 
212 0 0066 2900000080 
225 1 0080 0 00870402 
190 9 0048 5010000000 
212 0 0112 2500020094 
212 U0 0087 2500480101 
600 0 0100 122226372 

212 90 O10! 3000010108 
225 1 0108 © 01150106 
212 90 0115 3000060129 
222 0 0129 8701220094 
212 0 0094 6000010119 
222 9 0122 2401360136 

READ 856+ %DrIARRAY+UARRAY&S5S&XT 8 eR#SeTeleOQte 

225 1 0136 0 01430403 
212 0 0143 2500010150 
212 0 0150 3800020157 
225 1 0157 © 01640403 
120 0 0051 0000980000 
150 9 0050 0004050000 
225 1 0164 O 01710404 
215 1 0171 0 00490400 
120 0 0049 0901780000 
220 0 0185 0901920000 
225 1 0199 © 00060401 
212 9 0006 2500460013 
220 0 0013 790020000- 
232 0 0020 5999990027 
202 90 0192 0700010034 
202 9 0027 0700010041 
212 9 o041 79000460048 
212 9 0048 3000470062 
222 0 0062 8700550034 
212 90 0034 6000460199 
220 9 0055 0000690000 
225 1 0076 © 00830402 
212 0 0033 2300460090 
220 9 0090 790097000 
232 0 0097 5900900104 
202 0 0069 0700010111 
202 0 0104 0700010118 
212 0 0118 7000460125 


*I* 
CONST 


#1 

JARRA 

ENPK* 

sO OEE 
S 

CONST 

ere Ter tt 
R 


T 
R 

, 0136 
EDPK* 
R 


Ss 
EDPK* 


SRI OK aK 
ee et tt tt 
ENPK* 


EDPK* 
* 1 * 


*I* 
CONST 


*1* 


EDPK* 
* 1 


IARRA 


*I* 


EXTRA 


IARRAYKI3 & 


OPERAND 


THROUGH 2 1 # 2196 


WARRAYSI2 # JARRAYAIESS**2 & 30%-] 


JARRAYSI 3 


2ai2 0 0125 3900140139 
222 9 0139 8701320111 
212 0 Ol11 6900460076 
292 0 0152 G:00000146 
100 9 0052 09000000-5 
202 0 0146 7700000153 
212 9 0153 &8500520160 
292 9 0160 3701000167 
225 1 0167 O 01740402 
220 0 0174 700181000 
212 90 0181 5900000188 
212 9 0178 2500020195 
212 9 0188 2500480002 
212 9 0002 3900010009 
225 1 0009 © 00160106 
212 9 0016 3900060030 
222 9 0030 &700230195 
=I 
212 9 0195 6000010185 
225 1 9023 0 00370404 
202 9 0057 0100000044 
202 0 0044 7700000051 
222 0 0051 2400580058 
292 0 0058 75000 0065 
232 0 0065 6400900070 
202 0 00384 6700020072 
292 0 0079 0700010086 
190 9 0054 0900060000 
212 2) 00845 7000530093 
212 0 0093 3900540107 
222 9 0107 8701000072 
212 9 0072 6900530114 
212 9 0114 2500530121 
212 0 Ol21 7000550128 
292 0 0128 05000-0135 
212 0 0135 6700000142 
290 2 0142 70000) 000- 
192 9 0055 2500050149 
BR JARRAYSI&S2%**2 OR 30 AND NOT I 
225 1 0149 O 01560124 
212 9 0156 6900560163 
190 9 0057 09000000-3 


CONST 
*I* 
FOO Ck 
CONST 
EDPK* 
JARRA 

S 
CONST 

R 


FLPK* 
; 


ENPK* 


TARRA 


FOI RIK 
I 
CONST 


I 
I 
(CORE 
ONLY ) 


JARRA 


FLPK* 
TEMP 
et IR AG 


0030 


0037 


0065 


0149 






212 9 0163 3900530170 
212 9 0170 8500570177 
202 0 0177 3702000184 
212 5 01384 7900560191 
202 0 0191 7700000198 
212 0 0198 2300530005 
220 0 0005 790012000- 

KRBBMWVYEMZ SKB RV KM Z 8 RKKMKVRK—KZLRKABS SIN =X 23 
212 0 0012 5900000019 
212 9 0019 2500530026 
100 0 0058 0700300000 
225 1 0025 0 00330115 
190 0 0059 0900020000 
212 0 0033 3500580040 
212 9 0040 2900590047 
202 9 0047 7700000054 
212 9 0054 2500530061 
212 9 0061 7900600068 
292 9 0068 05000-0075 
212 2) 0075 0700000082 
290 0 0082 79000) 000= 
690 9 0290 132225772 
102 29 0060 2800050089 
225 1 0039 © 00960222 
212 0 0096 2500530103 
220 9 0103 790110000- 
212 0 0119 5900000079 
232 9 0100 2501010117 
232 9 0117 3901020124 
225 1 0124 Q 01310106 — 
212 0 0131 69005460138 
232 0 0138 2501010145 
232 0 0145 3901020152 
225 1 0152 © 01590109. 
212 0 0159 6900610166 
232 0 0166 2501010173 VE ee 
232 0 0173 3001020180 
225 1 0180 O 018702 
212 0 0187 3900610194 
225 1 0194 0 00010211 
212 9 0001 
225 1 0008 
212 0 0015 “600056002 
600 0 0300 321123997 
232 2 9022 2801000029 
225 1 0029 Q 00360300_ 
222 9 0036 260043004 3- 
292 0 0043 29000 0056_ 
212 0 0050 3900560057. 





CONST 


TEMP 


0019 
JARRA 


I 
(OR IR ICOK 
FLPKx* 

Wom IO IK 
CONST 
CONST 


I 
(CORE 
ONLY) 


FORO 
JARRA 


AC + 
Y o 


ira 


AZ 
14 t- (XA) 


IO IO HOR 
x 


TEMP 





IF RX&S5eORKYS 3940925 


GO TO JS GO TO IeBSedes? 


ASSIGN 3 TO ]Y 


GO TO 35$ 


IFBX-YS3.08 


225 1 0057 pe ae 
232 0 0064 _, 8901000071 
100 9 0062 5930000000 
232 9 0071 2501000078 
212 0 0078 3900620085 
225 1 0085 © 00920106 
232 0 0092 3901010099 
222 0 0099 8700190120 
222 9 0120 8201050113 
232 0 0127 2501000134 
232 0 0134 3901010141 
225 1 Ol4t © 01480108 
212 0 0148 3900620155 
225 1 0155 © 01620106 
222 9 0162 3101690169 
222 0 0169 8201060113 
232 90 0176 2501000183 
212 0 0183 3900620190 
225 1 0190 0 01970106 
232 0 0197 3001010011 
222 9 0011 8700040113 
210 0 0018 0950530000 
ad 
210 0 0025 0900530000 
120 0 0063 0901130000 
212 90 0032 3990630039 
4 GO TOkS 9554 eht eKeSRIARRAYY2%LOK20%750%K 82283 
120 0 0065 0901130000 
120 0 0066 0901130000 
120 0 0067 0901130000 
120 0 0068 0901060000 
120 0 0069 0000460000 
212 ¢ 0039 5900530113 
190 0 0071 0900030000 
212 0 0105 500700053 
212 0 0053 35507 10060 
225 1 0060 000870108 
212 0 0067 6900560074 _ 
100 9 9072 090000075 
212 9 0074 3400700081 _ 
212 9 0081 850072 
202 0 0088 


3703000095 


3e4e3S IFRXSS.OmMWY!2 39305 


FLPK* 
x 
BOI IO K 
x 
CONST 
FLPK* 

Y 


FLPKx 
CONST 
FLPK* 


Xx 
CONST 


FLPK* 
Y 


I 
ROI GK 


SI OI Ka 
Be AK IK Hk 
BI AOI ik 
IR 
AIR Ik aK 


I 
eI A 


K 
CONST 
FLPK* 

TEMP 
He ACK OK KR Ok 

K 

CONST 


0057 


0190 


0025 


0025 


0039 





202 9 0095 70000-0102 

202 0 0102 3701000109 

202 9 0109 3701000116 
JARRAYRIJARRAYKJARRAYS 38? SHI UH7TML2USAFH&3HA H&3SE15%30¢1UI5S9E-15 

202 0 0116 70000-0123 

220 0 0123 790130000= 

232 0 0130 2500900137 TARRA 

212 0 0137 7900560144 TEMP 

220 6 O144 790151000~ 

210 0 0151 pecpsuceo 

112 0 0064 2500030158 UARRA 

220 0 0158 F50165000- 

212 0 0165 2500000172 JARRA 

190 0 0073 0001245-(' errr St 

212 0 0172 6900560179 TEMP 

190 0 0074 191001. 800 eI AC IK a 

212 9 0179 2500730186 CONST 

100 v 0075 6530000000 FIR IO I 

212 0 0186 7000740193 CONST 

212 0 0193 3900750200 CONST 
QH3*L tHSHORF IX O®IG3—6, SHIRK2—7129MR328 

100 JU 00746 3531415900 ek I aK a ae 

225 1 0200 f-02970106_ FLPK* 

212 0 0207 3000760214 CONST 

225 1 0214 0 02210106 FLPK* 

225 1 0221 0 02280118 FLPK* 

232 0 0228 5000900235 IJ 

212 0 0235 2500560242 TEMP 

220 9 0242 7O0249000= \ 

212 0 0249 JARRA 

212 0 O113 350 L 

212 0 0256 83500570263 CONST 

202 0 0263 3701000270 

212 0 0270 6000560277 TEMP 

212 0 0277 2500530284 I 

225 1 0284 5 7o281b124 FLPKx 

212 0 0291 699061029 TEMP 

212 9 0298 5500889305 M 

202 0 0305 70Q00-0312 

202 0 0312 70000-0319 

212 9 0319 70006 {0326 TEMP 

202 0 0326 70000=0333 

212 0 0333 70008703 J 

212 0 0340 7000850347 (CORE 

202 9 0347 05000-0354 ONLY) 

232 0 0354 0700000361 

290 0 0361 70000) 000- 

102 0 0088 2500100368 0 

XY 


0116 


0200 


DO 7 [#11793 


225 1 0368 0 03750120 
220 0 0375 7O03B2000-— 
232 0 03382 3999990389 
212 0 0389 5900020396 
212 0 03946 2500560203 
220 0 0203 790210000- 
DO 7 X#ABSI2¢B%12eS*T 
212 © 0210 5000770217 
202 0 0217 0 00010224 
190 0 0089 0900070000 
202 0 0231 0100030238 
212 0 0238 3900890252 
DO 7 JR6rTH1 . 
222 0 0252 702450224 
212 0 0224 500020259 
212 0 0259 3900060266 
225 1 0265 0 02730109 
212 0 0273 6000560280 
232 0 0280 2900790287 
212 0 0294 2500560301 
232 0 0301 3901000308 
225 1 0308 0 03150106 
232 0 0315 : 329 
222 0 0329 87032206287 
IF BX-CBL&Se ts 30707 
232 0 02387 6001000336 
100 90 0090 0900010000 
202 0 0336 0300000343 
212 0 0343 7500900350 
212 9 0350 6900610357 
202 90 0357 0700060364 
202 0 0371 0700010378 
212 0 0378 7000870385 
212 0 0385 3900610399 
222 9 0399 8703920364 
212 0 0364 6900870206 
212 0 0206 2500870213 
O®S5*1?H 1 # ABS I & ABS J & FIX ABS D201? 
202 0 0213 3701000220 
220 9 0220 790227000- 
232 9 0227 2900530234 
232 0 0234 39010Q0255~ 
222 0 0255 6702410248 
202 0 0262 6¥0000026 







0368 
FLPK* 


TEMP 
0210 
Q 
RIO IO ag a 
CONST 


0252 


FLPK* 
TEMP 


TEMP 


FLPK* 


0329 
X 
We He eK he fe a 2c afc kc 


CONST 
TEMP 


TEMP 


0215 


xO 


202 9 0269 7700000276 
212 0 0276 8500570283 CONST 
202 0 0283 3701000290 
212 0 0290 6900910297 TEMP 
202 0 0297 0300000304 
212 0 0304 6000920311 TEMP 
222 0 oO3:11 2603180318 
212 0 0318 2900870325 J 
X # FLOAT I & FLOAT J & TANx~TANK=Xt28EXP SORTK-A®I PSX: 
212 0 0325 7900920332 TEMP 
212 0 0332 6900920339 TEMP 
222 0 0339 2403460346 
232 0 0346 2000010353 D 
225 1 0353 0 03600120 FLPKx 
212 0 0369 7000920367 TEMP 
202 0 0367 7700000374 
2902 0 0374 25000 0381 
220 0 0381 790388000- 
292 0 0388 © 00000395 | INDEX 
212 0 0395 2500910202 TEMP 
220 0 0202 700209000- 
232 0 0209 599990216 Dp 
202 9 0216 0300000223 
225 1 0223 0 02300116 FLPK* 
212 0 0230 6000910237 TEMP 
212 0 0237 2500870244 J 
225 1 0244 0 02510116 FLPK* 
212 0 0251 3000910258 TEMP 
225 1 0258 02650106 FLPK* 
212 0 0265 6900 2. TEMP 
232 0 0272 Py x 
225 1 0279 6 02860302 TRIG* 
225 1 0286 G-02930303 TRIG* 
212 0 0293 6 0 TEMP 
225 1 0300 0 70106 FLPK* 
212 0 0307 6000910314 TEMP 
232 0 0314 2900790321 | A 
232 0 0321 3001009328 x 
ASI&ISHBSIeUt&L NSBR 7 t&leO? 
225 1 0323 Q 03350307 FLPK* 
225 1 0335 © 03420200 EXPK* 
225 1 0342 0 03490263 EXPK* 
212 0 0349 3000910356 TEMP 
225 1 0356 xi Ose 70 0E FLPK* 
232 0 0363 6001000370 x 
202 0 0370 “6100000377 - ~~ 
212 0 0377 “7000870384. J 
212 0 


0334 6000910391 TEMP 


0325 


0328 


212 
202 
212 
292 
292 
212 
220 
232 
212 


IFS OBST e2t-CHJeT + 288705e5 


COCOOCCOCO 


0391 
0398 
0205 
0212 
0219 
0226 
0233 
0240 
0247 


2500870398 
3701600205 


6 

77000002 19<-!|R1 owe 
3701000226 
7000870233 

790 240000- 


2500480247 
3000480254 — 





225 1 0254 sg 028 Oe 
225 1 0261 "oO 5 
212 0 0268 : 
220 0 0275 700282000- 
232 0 02832 2900480289 
225 1 02389 0 02960106 
212 0 0296 2500910303 
220 0 0393 790310000- 
832.0 0310 __—__snanreaai?—— 
202 37700000324 jIikKLov3. 
202 9 0324 -79000~0331 
212 90 0331 7900870338 
212 0 0338 690 
202 0 0345 34700000352 
202 0 0352 '3701000359 
IF S-DB¥GeT e228 -CKIe1 028279305 
212 0 0359 100870366 
212 0 0366 7900930373 
202 0 0373 05000-0380 
232 9 0380 ‘0700000387 
290 0 03387 79000) 000= 
192 0 0093 BHO ISI O39! 
212 0 0394 2800910201 -— 
220 9 0201 700208000- 
232 0 0208 25000},02 
222 0 0215 etoautos2a~ 
222 0 0222 82 248 
202 0 0229 0000236 
202 0 0236 70000-0243 
212 0 0243 7900870250 
212 0 0250 ~6N009 10257 
202 90 0257 300000264 
202 0 0264 3701000271 
212 0 0271 “7000870278 
212 0 0278 7500940285 
292 0 0285 05000-0292 
232 0 0292 0700000299 
290 0 0299 70000) 000- 


TEMP 
8 
CONST 


FLPK* 
EXPK* 
TEMP 


FLPK* 
TEMP 


TEMP 


J 
(CORE 
ONLY) 


TEMP 


TEMP 


(CORE 
ONLY) 


0254 


0359 


192 9 0094 3901510306 Cc 
212 0 03046 2500910313 TEMP 
220 0 0313 790320000- 
232 0 0320 2500010327 0 
TRACE 
225 1 0327 GO 03340106 FLPK* 
222 0 0334 3103410341 
X # I$ I #4 xX 
222 0 0341 8702480241 
292 0 0348 0100000355 
225 1 0355 © 03620122 FLPK* 
190 9 0095 ©0003 7 ek HE a ke KK afc 2 
232 0 0362 5901000369 X 
212 0 0369 0500950376 TRACE 
ASSIGN 7 TO I! 
225 1 0376 0 03830412 ENPK* 
232 0 03a3 2501000390 X 
225 1 0390 0 03970118 FLPK* 
202 0 0397 25000 0204 
220 0 0204 700211000= 
190 0 0096 1211395457 eR IK aK a 
202 0 0211 0 00000218 INDEX 
212 0 0218 0500960225 TRACE 
CALL SUB 
225 1 0225 O 02320412 ENPK* 
120 0 0097 0002390000 NEO ACK 
212 0 0232 3000970246 
292 0 0246 25000 0253 
220 0 0253 790260000 
292 9 0269 © 00000267 INDEX 
212 0 0267 0300960274 TRACE 
CALL SUBIBI SABLE ORHA(T) %D 310000 SHSOLOK eJUNCHER—T 38 t 
600 90 1090 09331 242 eC Pe Tt Ls. 
225 1 0274 ~0 0261072 EDPK* 
690 0 1100 © “93310 2421 FOO a IK 
225 1 0281 202881000 _- 
202 0 0288 ~ 0800000295 
212 9 0295 700310302 TEMP 
202 0 0302 300000309 
212 6 0309 00920316 — TEMP 
202 0 0316 )yO0000325 
220 0 0323 7O0330000=. 
232 0 0339 500790337 A 
212 0 0337 ~2500010347 R 
225 1 0344 © 03510106 FLPK* 


nena 


0327 


0341 


0376 


0225 


0274 


7 


CONTINUE 


END 


600 
600 
212 
222 
212 
110 
212 
215 
110 
112 
215 
110 
100 
110 
100 
110 
130 
110 
li2 
212 
220 
232 
110 
212 


215 


120 
220 
220 
220 
292 
212 
202 
212 
210 


ODCOOOC0O0OCCOCOKF OOK GOCOCOCOO 


1200 
1300 
0351 
0358 
0365 
0101 
0372 
0379 
0103 
0100 
0336 
Olliv- LF 
0112 + 
0110, , 
0113: 
0108. 
a Sie 
0102 — 
0393: 
0490 
0457 
01054~ 
O414 


0421 


g104 wh 


02321 1453 
00001 6 


6900980358 | 


2403650365 


7500060372. 
| 390000 

6900990379 
G.01001300 
6000990000 
_ 6900990386 


0 01021200 


0000990000 
3232226762 
0001120000 
0900000000 


6900000000 
0900980000 
6900990393 


2500920400 
FAOUOTOO0= 
0700790414 
0600910000 


6901060421 
aa 


© 01041100 


0002390000 
0903710000 
0002949000 

902310000 


YT 0100000435 _ 


000530239 
0:00 49 


6900530115 
0900010000 
211224195 
7100010600 
4901030114 
112225472 
122226372 
132225772 
321123997 
OCO331 242 
03310 2421 
02321 1455 
09001 6 


FIO IO OK 5 
OAC a dK 
TEMP 


1 
BI tok afc ae 
TEMP 


TEL re tt et 
TEMP 


A ia ak ok 
SAO iG CK 
SICK 
BOO I 
2ie ode 0021 2 fe 2 ae a 
SOIR I ck 
JOR I fake ok 
TEMP 

TEMP 


A 
BA IK ICK 
TEMP 


I 


I 


(HEADERS) 
(HEADERS) 
(HEADERS) 
(HEADERS) 
(HEADERS) 
(HEADERS) 
(HEADERS) 
(HEADERS) 
(HEADERS) 
(HEADERS) 
(HEADERS) 


0421 


O421 


SUBROUTINE SUB 0000 








900 0 0000 090331 242 (HEADERS) 
292 1 0099 Bg ae 
212 0 0007 6900000014 | 
292 0 9014 ©:00000028 
222 9 0028 “2000350021 
201 9 0035 0 00000000 
702 0 0000 0000000000 
12063 STOP I 0035 
PAUSE¢ STOP$ PAUSE SMHHHHOO0O 0042 
212 0 0021 6900010042 
600 90 0190... 17222 2228 FIA IOI 
212 0 OOu2 | .€500020049 | I 
225 1 0049 “S 00560128 
222 o 0056 2s00630063-” 
225 1 0063 00700127 FLPK* 
GO TO 12.3 DE UGy w0g's 0070 
225 1 0070 Q 00770128 FLPK* 
202 0 0077 0790970084 
END 0084 
225 1 0084 FLPK* 
(HEADERS) 
af (HEADERS) 
4600000003] (HEADERS) 
122226372 (HEADERS) 
| eee aes 
SUBROUTINE SUBL®IsArRIOtSeC, J! 0000 
000 o 0000 03310 2421 (HEADERS) 
202 1 0090 0300000007 
212 0 0007 6900000014 
202 0 0014 0100000028. 
222 9 0028 2000350021 
2901 0 0035 0 00000000 
702 Q 0000 0000000000 
DIMENSION B%100102 +DK%20202028 0035 
COMMON XeR | 0035 
212 90 0021 6000010042 
190 9 0005 ; HII IC IK I a oe 
292 1 0042 3400070049 
202 9 0049 2500050056 
292 0 0056 20000 0063 
100 0 0006 f He 2 2 2 oe 2 aK 2 2 
202 9 0063 6900020070 
202 0 0070 2500060077 


202 
100 
2092 
202 
202 
202 
202 
202 
292 
202 
202 
202 
202 
202 
202 
292 
292 
202 
202 
202 
202 
202 
202 
202 
202 
202 
202 
212 
202 
202 
202 
202 
202 
202 
202 
202 
202 
202 
202 
202 
202 
202 
202 
202 
202 
202 
292 
202 
202 
202 


0077 
0007 
0034 
oo91 
0098 
0105 
0112 
0119 
0126 
0133 
0140 
0147 
0154 
0161 
0168 
0175 
01382 
0189 
0196 
0003 
0010 
0017 
0024 
0031 
0033 
0045 
0052 
0059 
0068 
0073 
0089 
0037 
0094 
0101 
0108 
0115 
0122 
0129 
0136 
0143 
0159 
0157 
0164 
0171 
0178 
0135 
0192 
0199 
0004 
0013 


20000 0084 


6900030091 
2500070098 
20000 0105 
6900040112 


3400060119 


2500050126 
290000 0135 
6900080140 
2500060147 
29000 0154 
6900090161 


2500070168 


29000 0175 


6000100182... 


3400050189 
2500050196 
29000 0003 
6900110010 
2500060017 
20000 0024 
6900120031 
25800070038 
29000 0045 


3400040059 


2500050080 
20000 ‘0087 
6000150094 
2500060101 
20000 0108 
6900160115 
2500070122 
29000 0129 
6900170136 
3400020143 
2500050150 
29000 0157 
6000180164 
2500060171 
29000 0178 
6900190185 
2500070192 
29000 0199 
6000200006 
3400010013 
2500050020 


OR IO OK 


GOD: 


00140066 ~ 
3400030073 


EXTRA 


BS3:F Y # X&FLOAT JUNCKREDK%2St202e2thOKL SSIES. 8-7 


202 90 0020 
292 0 0027 
202 0 0034 
292 0 0041 
202 0 0048 
202 ¢ 0055 
292 0 0062 
EQUIVALENCE %Ye23 
PRINT TeIe9 
690 90 0400 
2902 0 0059 
202 0 00746 
212 0 0085 
150 0 0025 
212 0 0090 
215 1 0097 
121 0 0024 
225 1 0104 
212 90 0118 
212 9 0125 
202 0 0132 
212 90 0139 
200 0 0146 
102 0 0028 
225 1 0155 
202 0 0111 
202 0 0160 
190 0 0029 
212 90 0174 
212 0 Olal 
222 0 0195 
212 0 0167 
OPERAND 
690 9 1000 
225 1 0188 
212 90 0002 
220 0 0009 
292 0 0016 
690 0 0100 
221 0 0023 
225 1 00390 
212 9 0037 
221 0 0044 
202 0 0051 
221 0 0058 


20000 0027 
6900210034 
2500060041 
290000 0048 
6900220055 
2500070062 
290000 0069 


112225472 
6900230076 
O709*0083 
3590210090 
0004070000 
6000260097 | 
0 00240400 


0501040000 


© 01110402 
500270125 

7600 
05000-0159 
200140146 | 
79000) 000- 
2499990153 
© 016004501 


0700010174 
“0900160000 
7000270181 
3900290195 
87901880167 
6900270118 


~—602321 « 1455 


0 00020404 
2500140009 


3900150023 
122226372 


0500305000) 
0 00370106 
6000260044 


uy 
0800516000\ 
70000-0058" 






0069 


0069 
IO FO IO IOK 


II CK ok 
TEMP 


I 


0104 
EDPK* 
#1* 
(CORE 
ONLY) 
PARAM 


D 
EDPK* 


FA IIR AOI OK 
*1* 
CONST 


* T * 
RK OIC 
EMPK* 
PARAM 

0 
Se HOR KE oie 2 4K 2k 3 
R 


TEMP 
J 


I 


zo) 


202 
212 
292 
212 
200 
100 
192 
212 
225 
212 
225 
110 
212 
215 
125 
232 


NO TRACE 
225 
212 
225 
100 
212 
212 
225 
190 
232 
212 


DO 3 TA 1leg 


CALL SUB2ZBITeAtReDe 
225 
202 
202 
221 
222 
600 
220 
202 
212 
202 
212 
292 
212 
292 
212 
200 
192 
222 


ORM KFOOrFOKOOCOCCOOG 


0005 
0072 
0079 
0086 
0093 
0031 
0039 
0100 
0107 
0114 
Olal 
0033 
0128 
0135 
0032 
0142 


0149 
015% 
0163 
0035 
0170 
0177 
0184 
0036 
Ols1 
0198 


OCOrFOCCOr Ge 


70000 0072 


"7900300079 


79000) 000- 
5930000000 

0 : 
3000310107 
@) a iE : 








000260121 
0 01280106 
0900260000 
6900260135 
© 00321000 
© 01420116 


© 01560106 
30 O16 


700108 
09005 : 


5900340177, 
0500350184 
QO 01910412. 
00001 24 
5900030198 

“0800360005 


OB¥T3e-O¥Il2tS$ GO TO 4 


0005 
0012 
0026 
0033 
0047 
1109 
0019 
0054 
0061 
0068 
0075 
0082 
0039 
0096 
0103 
0119 
0033 
0117 


. 4 
© 00010019 
0100010033 
6500470001 
8700400019. 
03310 2422 
900540000 
0100000061 
4900260068 
0100000075 
6900370082 
© 100000089 
7900380096 
05000-0103 
2500140110 
70000) 000= 
2999990117 
2601240124 


(CORE 
ONLY) 
PARAM 


IOI IK 
D 

CONST 

FLPK* 

TEMP 

FLPK* ‘ 

2A IO IK 

TEMP 


FLPK* 
x 
0149 
FLPK* 
Z 
FLPK* 
BIO II 
Y 
TRACE 
ENPK* 
FIR AK 
B 
TRACE 
0005 
0005 
EDPK* 
J 


FI I i i 


TEMP 
TEMP 
(CORE 
ONLY ) 
PARAM 


D 


202 9 0124 75000 0131 
110 9 0046 0900390000 FAO ACK 
212 9 0131 6900390138 TEMP 
212 6 0138 2500370145 TEMP 
212 0 Olas 7900470152 (CORE 
292 0 0152 08000-0159 ONLY) 
212 0 0159 2500140166 PARAM 
200 0 0166 79000) 000- 
192 9 0047 0499990173 fe) 
212 0 0173 6900450180 TEMP 
212 0 0189 2500140187 PARAM 
220 9 0187 790194000- 
292 0 0194 0700000001 D 
212 0 0001 6900440008 TEMP 
202 co 0008 O79##0015 
212 0 0015 3500150022 
212 3 0022 6000430029 TEMP 
202 0 0029 0799910036 
212 9 0035 3500180043 
110 0 0041 0900260000 FOO OR 
212 0 0043 6900420050 TEMP 
IAS 0050 
215 1 0050 Y 00401100 
120 0 0049 0900570000 
202 0 0064 4 0360060071 
202 9 0071 ~ 7700000078 a 
221 0 0078 070085p002 
END — 0085 
220 9 99a9____9900850000 
221 9 0085 0500920000 J 
202 0 6092 7700000099 I 
211 9 0099 0500010002 
03310 2421 (HEADERS) 
7100010200 (HEADERS) 
4901010048 (HEADERS) 
112225472 (HEADERS) 
02321 1453 (HEADERS) 
122226372 (HEADERS) 
03310 2422 (HEADERS) 
FUNCTION JUNCS%A? 0000 
900 9 0000 02321 1453 (HEADERS) 
202 1 0009 0100000007 
212 9 0097 6000000014 
202 0 0014 0100000028 
222 9 0028 2900350021 
202 0 0035 © 00000042 
212 0 0042 2500020049 JUNC 


201 9 
792 90 


JUNCH7MOO000000 
212 
190 
202 
202 
292 
190 
202 
202 
202 
190 
292 
202 
292 


GCOOCOOCOGCCOKOG 


AxO 
292 0 
222 0 


JUNC & JUNCK®us 
2i2 
222 
292 


ENO OF FORTRAN TES 
221 
190 
212 
600 
212 
225 
211 


0049 
0090 


0021 
0096 
0056 
0063 
0070 
0007 
0077 
00384 
0091 
0008 
0098 
0105 
0112 


0119 
0126 


01355 
0149 
0147 


PROGRAM 
0154 
0009 
Olol 
0100 
0168 
0175 
0182 





7700000000 
0700000000 


6000010056 
250000000 
3400010063 
2500060070 
29000 0077 
390000000 
4900030084 
2300070091 
29000 0098 
590000000" 
6000040105 
2500080112 
29000 0119 


6900050126 
24601330133 


6000020140 
2601470147 
7700000154 


0501610002 
0900049000 
500020168 
3900090175 
O 01820100 
20001 
02321 1453 
71000102090 
4900000010 
122226372 





0049 


FetOK Fa AK 


rr ee Te 


FOR otk 


0119 


0135 
JUNC 


0154 


AO IOI IO 
JUNC 
Ya IE i ak 
CONST 


JUNC 
(HEADERS) 
(HEADERS) 
(HEADERS) 
(HEADERS) 
























MA IN*1000000G0900000211224195 22250000003100070007232000000750010200148949341987 
MA IN*1000 9123200000 14500191002123200090215901000028202000002807000500351557 7014a 
MA IN* 100021090000000338200000023290990 3560009 100422 1200000422500000049 1518320170 
MA IN* 100032 1200000u9690096005620200000560 0002006310000000 1400000900005735880241 
MA IN* 1000420200000700 ! 000100772120000077390014009 1222000009 1870084006 33756700473 
MA IN*100652259000900630000980000 10090000 15¢90000000010000000 1600000000008396390099 
MA IN*¥10006)10000000 170300000500 10000000 18190000000010000900 1904003006038895711168 
MA IN*100071L0000000201000300008 1000000090211900000400100009002205005007009696211178 
MA IN* 10008/11000000900230809004500095 10000009240000012348100090002500000600007996382431 
MA IN* 10009/10000000 9260800500005 1000N00902769000 12345100000002806005000058596 22445 
MA IN* 100 10110000000 9290600500005 10090900 300%00600006100000003 100000000007796810111 
MA IN*100 11110000000 320700 300200 10000000330 10030000010000000 3402052000528201210362 
MA IN*100121L0900000 350205 200152 10090000 360 20529005210000000 370901800304.8508 110628 
MA IN*100 1310000000 380900000093 1009000939190000 1200100000004006000000008795 11333 
MA IN*®100 241000900904 101009000000 100900004299000000006000000400112225472 3317(6522- 
MA IN*1001512000000450900 980000 1509000044099 0600002 1200000980200 1501059220600307 
MAIN*1001621501001050 00430400 12000000430901 1200002200000 1 1900012600000148620683 
MA IN*® 1001721200001 332500 4601402200000 140790147000-2320000 1472599990 1542937330737 
MA IN*100 1822501001540 0151040120200001260700010168202000016107000101752287441203 
MA IN* 100 191000900004 7090039000002 129000 17579004460 1822120000 1223000470 1969437 140aO1 
MA IN*¥ 100202220000 1968701 3901682120000 1686900460133220000018900000300005437790R74 
MA IN*1002 121200000 102500460017220N000017700024000-23200000 242800900031 2837010123 
MA IN*10024222501000310 0038040220200000030 7900 1004520200000 3807000 100522286210593 
MA IN* 100232 1200000527900 4600592 12N0009593090014007 3222000007 387006600459356670384 
MA IN* 100242 1200000u560004600102129900066290000008022501000800 008704029 386840707 
MA IN*100€5100000004 859 100000092 1200001 1228000200942 120000087250048010194453 10467 
MA IN*100266000000100122226372 2120009191300001010822501001080 011501069~-89534276 


322200001222601 36013622501001360 01430403212000014325000101506888311118 
2120000 150350002015722591001570 01640403120000005 100009800003 (68450947 
1500000050000405000922591001640 0171040421501001710 004904000102161219 


2 120000006250046001 322090000 13790020000-232000002050999900275436060115 
2020000 19297000 10034202000902707900 1004 1212000004 1700046004887558904 16 
42 1200000483000470062222000006287005300342 1200000 346000460 1998356890473 
'522000000550000690000 22501000760 008304022 12000008325004600903968090741 
62200000090700097000-232000009751009001042020000069070001011134372908 14 
2020000104070091011821200001 1879004601252 12000012530001401391156020766 
$222000013987013201112120000111600046007620200001320 1000001466-57190753 
# 10000000 520000 0000-5 2020000 14677000001532 12000015385005201605535130748 


MAIN*1005 
MAIN*1005 


MA IN¥*1004420200000370 § 00000044 2020000044770000005 1222000005 126005800582155390329 
MA IN*10045202000005875009 006523290090065640090007020200000 8407000200725 156400459 
MA IN* 10046202000007907006 10086 100000005400000600002 1200000 86700053009370363 10444 
MA IN* 100472 12000009330005401072220000107870100007 22 12000007260005301148357 80612 


MA IN* 100492 1200001 350700900 1422000000 14270000) 000=1020000055250005014995358-0677 
2501001490 0156012421200001566900560163100000005700000000-35967930712 


MA IN*100562120000054250053006121200000617700600068202000006805000-00750456880uU4uS 
MA IN* 100572 1200000750700 900082 20000000827N000) 000-6000000200132225772 33377-8227 
MA IN*100581020000060250005008922501000890 009602222 12000009625005301034987350717 
MA IN*® 100592200000 1037901 10000-21200001105000000079232000010025010101175337820574 


MA IN*® 100594200000 1037901 10005-21200001 10590000007923200001002501010117533782057u4 











MA IN* 1000023200001 17390102012422501001240 01310106212000013160005601380888700800 
MA IN* 1006123200001 3825010101452320000145300102015222501001520 015901096 389430902 
MA IN* 100622 1200001596900461016623200001662501010173232000017330010201802458351079 
MAIN*1006322501001800 0187020821200001873900610194225010019u40 000102114 (18401237 
MA IN* 100642 120000001300056000822591000N8O 0015011021200000 1560005600220387080228 
060000300321123997 2320009022250100002922501000290 003603000878710721 
2200000 3626004 20043202000004329000 005021200000503000560057815644u034u5 
2501000570 00640105232N0000646N0 100007 1100000006 250300000001197450427 
32000007 125010000782 120N000078390062008522501000850 009201066788350871 
3200000923001 910099222N000099870019012022200001 2082010601 130857 (70712 
320000 12725019001342320000134300101014122501001410 014801086#89300855 
120000 14u8300062015522501001556 01620106222000016231016901697889740966 
220900 169820106011323200001762501000183212000018330006201904558391086 
2501001900 019701062320000197300101001 122200000 1187000401 133088830701 
1000000 1800005300902 1090000250900530000120000006 30001 1300009597 (00180 
1200000 323000630039 1200000065690113000012000000660001 1300001718600277 
2000000470901 130090 1200000068000 1060000120000006900004600007798360280 
1200000 395000530113100000007 100000300002 120000 106280070005 36936 (70459 
12000005330007 1006022591000600 00670100212000006760005600740388050u92 
0000000720900900-752 120000074390070008 12 12000008 185007200880937331150 
0200000 8837039000952020N00009579000-0102202000010237010001094659 80671 
020000109370100011620200001 1679000-01232200000123700130000-813778067) 
320000 1 302500900137212000013779005601442200000144700151000~-7338380778 
1000001510000540000 1 12900096425000301582200000158700165000-9118030618 
120000 1652500000172 100000007300901245=( 21200001 726000560179793781601u 
000000074101091 80021290001792500730186100000007565300000008356-58399 
120000 1867000740193212090019339007502001000000076353141590029687 16834 
2501002000 020701062129000247300076021422501002140 022101064 (20951134 
2501002210 0228011823200002285900900235212000023525005602428789551 367 
2000002u2700249000—2 1200002495000000113212000011330007702565638 (71069 
MA IN*100902 12000025685005702632020000263370 10002702 12000027060005602778657841689 
MA IN* 1009 12120000277250053028422501002840 02910124212000029 160006102989889861649 
MA IN#*10092/2 1200002982500 360305202000030570000-03 1220200003 1270000-031968563' 1943 
MA IN* 100932 1200003 19700045 10326 202000032679000~-03332 1200003337000870340 1457252070 
MA IN* 100942 1200003407900380347 2020000 34705000-03542320000354070000036 18856332197 
MA IN*10095200000036179000) 000-1020000028250010036822501003680 0375012093697-1407 
MA IN* 100962 200000375790332000-23200003823N999903892 12000038950000203965939242034 
MA IN* 100972 1200003962500 560203220000023700210000=2 1200002 1050007702175139141330 
MA IN*1009820200002170 00910224 100000008900N0070000202000023101000302380835821097 
MA IN¥ 100992 1200002 383000390252222000025287024502242 12000022425000202594858771548 
MA IN*101002120000259390006026622591002660 02730109212000027360005602800389 161553 
MA IN*1010123200002 802900 790287 2120000294250056030 1232000030 130010003089357761872 
MAIN*1010222501003080 031501062329000315390059032922200003 298703220287 3092771776 
MA IN*101032320000297600 1000336 10090909090090001000020200003360:000003436 36 21495 

J42 1209003437500 3003502 120N0003506900610357202000035707000603644656982225 
020900037 107000103782129000378790087 03852 12000038530006103991156902u01 
220000390987039203642 129000 36461008702062 12090020625008702 137861071858 
0200002 1337010002202200000220790227000-232000022729005302344339811227 
3200002 343001 000255222000025587024 1024820200002620 1000002693358821631 


MAIN*10081 
MAINK10082 
MAIN*10085 
MAIN*10084 
MAIN*10085 





120000332600092033922200003392403460346232000034620000103531459802167 
2501003530 036001292129000360790092036720200003677700000374569033205u 
02000037425000 03812209900321790388000—-20200003880 00000398033936203°" 
1200003952500 3 1020222090002N27N0209000-232000020950999902 145438401343 
0200002 1691 0090022322591002230 0230011621200002 3060009 102378389021 361 
12090002 372500870244 22591002440 02510116212000025 130009 102596889801467 
2501002580 02650196212900026560009 1027 22329000027225010002799790371570 


HA PN aT MR aoe fo FHM er OKRA me Mii mnrnnemmstn an mr Ee me Ber AME VHrnAnAnA KAwweanaA Cr @ mem fii Mm ~ 7% sf 6 2 ames 


MAIN*10116 
MAIN*10117 
MAIN*101i8 


SA4A VRite @ PRY 1 


MAIN*1012022501003000 03970106212009030760009 1031423209003 1429007903210190581782 
MAIN*101212320000321300100032322501003280 0335010722501003350 034202005323681740 
MA IN*1012222501003u420 034902032120000349300091035622501003560 036301064 (23941834 
MA IN*1012323200003643600100037020290003700 000003772 12000037770008703844857 282364 
MAIN*101242120000384690091039121200003912%0087039820200003983701000203265819229} 
MAIN¥101252 120000205690092021220290002 12770000021920200002 1937010002267757331418 
MA IN¥101 2621200002 2670008702332209000233790240000-232000024025004802477339 161311 
MAIN*101272120000247300048025422501002540 0261010622501002610 026802054 (2138145u 
MA IN¥* 101282 1200002 6825009202752200000 27570028 2000-23200002 822900480289323963152u 
MAIN*®101<€922501002890 02960105212000029625009 103032200000303700310000-0672781433 
MA IN* 1015023200003 10500079031 720200003177700000324202000032470000-033102562-2053 
MA IN¥1015121200003317900038703332120000 33860009 10345202000034577000003521157192180 
MA IN*¥1015220200003523701 0003592129000 35979008703662 12000036670009303738158212307 
MA IN*10133202000037305000-0338923200003200700000387200000038770000) 000-873583204- 
MAIN*1015410200000933900151039421290N0039428009 102012200000201700208000-20399 11423 
MA IN*®101552320000208250001021522200002 1587024 1022222200002 2282024102480360241465 
MA IN*1015620200002 297700000236202000023679000-02432 12000024370008702502056351573 
MA IN¥10157212000025060009 10257 20200002577700000264202000026437010002717757321700 
MA IN*10158212000027179008702782120000278790094028520200002 8505000-02924957 281827 
MA IN*¥10153923200002920700900299200000029979000) 000-102000009430015103040237331433 
MA IN* 101402 12000030625003103132200000313790320000-232000032025000103272839531725 
MAIN*®10141225010032970 0334010522200003343 10341034 1222000034 187024802413095041A31 
MA IN*1014220200003480!0000035522501003550 03620122100000009500003 71269778884 
MA IN*10143232000036259010003692120000369050095037622501003760 038304126791292u07 
MA IN*101442320000383250100039022501003900 03970118202000039725000 02046-90822026 
MA IN*1014522000002047002 11000=-1009000096121139545720200002110 000002188329216335 
MA IN*1014621200002 18050096022522501002250 02320412120000009700023900000 (71181323 
MA IN¥10147212000023239003970245202000024625000 02532200000253700260000-3039021383 
MAIN*1014820200002600 000002672 1200002670800960274600000100000331 24258695-(u58 
MA IN¥1014922501002740 02810412600090110N003310 242122501002810 0288100058326'56437 
MA IN*1015020200002 880! 000002952 1200092956009 1030220200003020 3000003098756321941 
MA IN*101512120000309600092031520200003160 ! 000003232200000323700330000-443963174) 
MA IN*1015223200003 3039007903372 1290003372500010344225010034u0 035101066789821950 
MAIN*10153600000120002321 145360000013000%001 62 12000035 160009803584549009581 
MA IN¥10154222000035826036503652 120000365750006037 21 10000010 100009900009740411715 
MA IN¥*101552120000372690009903792150100379n 01001300110000010300009900005968792688 
MA IN*101561120000100690099038621591903860 010212001100000!1 11000099000049688 12339 
MA IN*®10157100090001 123232226-62 11000001 10000112000010000001 1300000000000529357154 
MA IN*1015811000001090001 1300001300000 1080000000000! 10000010700009800007697820u82 
MA IN*1015911200001026000990393212000039325009204002200000400700407000-5141391853 
MA IN*1016023200004070700790414110009010500009 100002 1200004 1460010604216438171921 
MAIN*1016121501004910 0104110012000001040902390000220000023900037 100000152952025 
MA IN*10162220000039200029400002200900322000231000020200004280 100000435 1820661739 
MA IN* 1016321200004 35600053023920290004U420 1000004492 12000044960005301133356 72290 
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